VERSION 5.00
Begin VB.UserControl ClientPlanCtrl 
   BackColor       =   &H00FFFFFF&
   ClientHeight    =   3855
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   11415
   ScaleHeight     =   3855
   ScaleWidth      =   11415
   Begin VB.Label Status_Label 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   315
      Left            =   2700
      TabIndex        =   20
      Top             =   240
      Width           =   1635
   End
   Begin VB.Label ReferredTo_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   1635
      Left            =   4740
      TabIndex        =   1
      Top             =   540
      Width           =   2775
   End
   Begin VB.Label RRPlan_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   1875
      Left            =   720
      TabIndex        =   6
      Top             =   1860
      Width           =   3435
   End
   Begin VB.Label GaveResults_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   4740
      TabIndex        =   0
      Top             =   3180
      Width           =   2535
   End
   Begin VB.Label Client_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   315
      Left            =   720
      TabIndex        =   4
      Top             =   540
      Width           =   3675
   End
   Begin VB.Label CondomsGivenByCoun_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   8100
      TabIndex        =   3
      Top             =   540
      Width           =   2175
   End
   Begin VB.Label Label9 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "# Condoms Given by Counselor:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   7980
      TabIndex        =   13
      Top             =   240
      Width           =   3135
   End
   Begin VB.Label Label8 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Gave Results:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   4620
      TabIndex        =   12
      Top             =   2880
      Width           =   2775
   End
   Begin VB.Label Counseled_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   4740
      TabIndex        =   2
      Top             =   2520
      Width           =   2895
   End
   Begin VB.Label HighEduAtt_Label 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Counseled:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   4620
      TabIndex        =   11
      Top             =   2220
      Width           =   2535
   End
   Begin VB.Label Label3 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Client Referred To:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   4620
      TabIndex        =   10
      Top             =   240
      Width           =   2955
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Risk Reduction Plan:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   600
      TabIndex        =   9
      Top             =   1560
      Width           =   2535
   End
   Begin VB.Label CoupDiscordant_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   720
      TabIndex        =   5
      Top             =   1200
      Width           =   2535
   End
   Begin VB.Label Age_Label 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Couple Discordant:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   600
      TabIndex        =   8
      Top             =   900
      Width           =   2535
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   6
      Left            =   7740
      TabIndex        =   19
      Top             =   180
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   5
      Left            =   4380
      TabIndex        =   18
      Top             =   2820
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   4
      Left            =   4380
      TabIndex        =   17
      Top             =   2160
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   2
      Left            =   360
      TabIndex        =   16
      Top             =   1500
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   1
      Left            =   360
      TabIndex        =   15
      Top             =   840
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   3
      Left            =   4380
      TabIndex        =   14
      Top             =   180
      Width           =   255
   End
   Begin VB.Line SexColorLine 
      BorderColor     =   &H00FFC0C0&
      BorderWidth     =   10
      X1              =   60
      X2              =   60
      Y1              =   660
      Y2              =   3120
   End
   Begin VB.Label Label13 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Client | Couple Code:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   600
      TabIndex        =   7
      Top             =   240
      Width           =   2115
   End
   Begin VB.Shape Shape2 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   1  'Opaque
      BorderColor     =   &H00000000&
      BorderWidth     =   2
      Height          =   3735
      Left            =   60
      Shape           =   4  'Rounded Rectangle
      Top             =   60
      Width           =   11295
   End
End
Attribute VB_Name = "ClientPlanCtrl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Private Sub UserControl_Initialize()

   If SEX = "1" Then
      SexColorLine.BorderColor = vbBlue
   Else
      If SEX = "2" Then
         SexColorLine.BorderColor = vbGreen
      Else
         SexColorLine.BorderColor = vbRed
      End If
   End If
   
   For I = 1 To 6
      Star(I).Visible = False
   Next I
End Sub

Public Sub SetStar(ByVal StarIdx As Integer)
   Star(StarIdx).Visible = True
End Sub

Public Sub UpdateData()

   Select Case HIV
      Case ""
         Status_Label.Caption = ""
      Case "00"
         Status_Label.Caption = "(Negative)"
      Case "01"
         Status_Label.Caption = "(Positive)"
      Case "97"
         Status_Label.Caption = "(Inconclusive)"
      Case "98"
         Status_Label.Caption = "N/A"
      Case Else
         Status_Label.Caption = "ERROR"
   End Select
      
   If SESSTYPE = "01" Then
      If SEX = "1" Then 'Individual
         Client_Data.Caption = CLIENTCO & " | n/a" & "  (Male)"
      Else
         Client_Data.Caption = CLIENTCO & " | n/a" & "  (Female)"
      End If
   Else
      If SESSTYPE = "02" Then 'Couple
         If SEX = "1" Then
            Client_Data.Caption = CLIENTCO & " | " & COUPCODE & "  (Male)"
         Else
            Client_Data.Caption = CLIENTCO & " | " & COUPCODE & "  (Female)"
         End If
      Else 'Error
         Client_Data.Caption = "Invalid SESSTYPE"
      End If
   End If

   
   If DISCOR = "" Then
      CoupDiscordant_Data.Caption = ""
   Else
      If DISCOR = "00" Then
         CoupDiscordant_Data.Caption = "No"
      Else
         If DISCOR = "01" Then
            CoupDiscordant_Data.Caption = "Yes"
         Else
            If DISCOR = "98" Then
               CoupDiscordant_Data.Caption = "N/A"
            Else
               CoupDiscordant_Data.Caption = "ERROR"
            End If
         End If
      End If
   End If
   
   RRPlan_Data.Caption = ""
   If RRPLAN0 = "0" Then
      RRPlan_Data.Caption = RRPlan_Data.Caption & "None, "
   End If
   If RRPLAN1 = "1" Then
      RRPlan_Data.Caption = RRPlan_Data.Caption & "Abstinence, "
   End If
   If RRPLAN2 = "1" Then
      RRPlan_Data.Caption = RRPlan_Data.Caption & "Client will have one partner, "
   End If
   If RRPLAN3 = "1" Then
      RRPlan_Data.Caption = RRPlan_Data.Caption & "Client will ask partner to be monogamous, "
   End If
   If RRPLAN4 = "1" Then
      RRPlan_Data.Caption = RRPlan_Data.Caption & "Increase use of condoms, "
   End If
   If RRPLAN5 = "1" Then
      RRPlan_Data.Caption = RRPlan_Data.Caption & "Reduce number of partners, "
   End If
   If RRPLAN6 = "1" Then
      RRPlan_Data.Caption = RRPlan_Data.Caption & "Eliminate high risk partners, "
   End If
   If RRPLAN7 = "1" Then
      RRPlan_Data.Caption = RRPlan_Data.Caption & "Change alcohol/drug use, "
   End If
   If RRPLAN8 = "1" Then
      RRPlan_Data.Caption = RRPlan_Data.Caption & "Retest for HIV, "
   End If
   If RRPLAN9 = "1" Then
      RRPlan_Data.Caption = RRPlan_Data.Caption & "Test partner for HIV, "
   End If
   If RRPLAN10 = "1" Then
      RRPlan_Data.Caption = RRPlan_Data.Caption & "Attend Post Test Club, "
   End If
   If RRPLAN11 = "1" Then
      RRPlan_Data.Caption = RRPlan_Data.Caption & "Disclose HIV Status, "
   End If
   If RRPLAN12 = "1" Then
      RRPlan_Data.Caption = RRPlan_Data.Caption & "Attend PMTCT, "
   End If
   If RRPLAN99 = "1" Then
      RRPlan_Data.Caption = RRPlan_Data.Caption & "Other, "
   End If
   If Len(RRPlan_Data.Caption) >= 2 Then
      RRPlan_Data.Caption = Left(RRPlan_Data.Caption, Len(RRPlan_Data.Caption) - 2)
   End If
   
   
   If ORGANIZATION = "MACRO" Then
      ReferredTo_Data.Caption = ""
      If REFTO0 = "0" Then
         ReferredTo_Data.Caption = ReferredTo_Data.Caption & "Not referred, "
      End If
      If REFTO1 = "1" Then
         ReferredTo_Data.Caption = ReferredTo_Data.Caption & "PLWA Assn (NAPHAM), "
      End If
      If REFTO2 = "1" Then
         ReferredTo_Data.Caption = ReferredTo_Data.Caption & "Hosp/Clinic, "
      End If
      If REFTO3 = "1" Then
         ReferredTo_Data.Caption = ReferredTo_Data.Caption & "PTC, "
      End If
      If REFTO4 = "1" Then
         ReferredTo_Data.Caption = ReferredTo_Data.Caption & "HBC, "
      End If
      If REFTO5 = "1" Then
         ReferredTo_Data.Caption = ReferredTo_Data.Caption & "FP Clinic, "
      End If
      If REFTO6 = "1" Then
         ReferredTo_Data.Caption = ReferredTo_Data.Caption & "TB Clinic, "
      End If
      If REFTO7 = "1" Then
         ReferredTo_Data.Caption = ReferredTo_Data.Caption & "MACRO Clinic, "
      End If
      If REFTO8 = "1" Then
         ReferredTo_Data.Caption = ReferredTo_Data.Caption & "PMTCT Center, "
      End If
      If REFTO98 = "1" Then
         ReferredTo_Data.Caption = ReferredTo_Data.Caption & "N/A, "
      End If
      If REFTO99 = "1" Then
         ReferredTo_Data.Caption = ReferredTo_Data.Caption & "Other, "
      End If
      If Len(ReferredTo_Data.Caption) >= 2 Then
         ReferredTo_Data.Caption = Left(ReferredTo_Data.Caption, Len(ReferredTo_Data.Caption) - 2)
      End If
   Else
      If ORGANIZATION = "LIGHTHOUSE" Then
         ReferredTo_Data.Caption = ""
         If REFTO0 = "0" Then
            ReferredTo_Data.Caption = ReferredTo_Data.Caption & "Not referred, "
         End If
         If REFTO1 = "1" Then
            ReferredTo_Data.Caption = ReferredTo_Data.Caption & "PLWA Assn (NAPHAM), "
         End If
         If REFTO2 = "1" Then
            ReferredTo_Data.Caption = ReferredTo_Data.Caption & "Hosp/Clinic, "
         End If
         If REFTO3 = "1" Then
            ReferredTo_Data.Caption = ReferredTo_Data.Caption & "PTC, "
         End If
         If REFTO4 = "1" Then
            ReferredTo_Data.Caption = ReferredTo_Data.Caption & "HBC, "
         End If
         If REFTO5 = "1" Then
            ReferredTo_Data.Caption = ReferredTo_Data.Caption & "FP Clinic, "
         End If
         If REFTO6 = "1" Then
            ReferredTo_Data.Caption = ReferredTo_Data.Caption & "TB Clinic, "
         End If
         If REFTO7 = "1" Then
            ReferredTo_Data.Caption = ReferredTo_Data.Caption & "MACRO Clinic, "
         End If
         If REFTO8 = "1" Then
            ReferredTo_Data.Caption = ReferredTo_Data.Caption & "PMTCT Center, "
         End If
         If REFTO9 = "1" Then
            ReferredTo_Data.Caption = ReferredTo_Data.Caption & "LH ARV Clinic, "
         End If
         If REFTO10 = "1" Then
            ReferredTo_Data.Caption = ReferredTo_Data.Caption & "STI Clinic, "
         End If
         If REFTO11 = "1" Then
            ReferredTo_Data.Caption = ReferredTo_Data.Caption & "Hosp/Clinic (NOS), "
         End If
         If REFTO98 = "1" Then
            ReferredTo_Data.Caption = ReferredTo_Data.Caption & "N/A, "
         End If
         If REFTO99 = "1" Then
            ReferredTo_Data.Caption = ReferredTo_Data.Caption & "Other, "
         End If
         If Len(ReferredTo_Data.Caption) >= 2 Then
            ReferredTo_Data.Caption = Left(ReferredTo_Data.Caption, Len(ReferredTo_Data.Caption) - 2)
         End If
      End If
   End If
   
   If COUNSELD = "" Then
      Counseled_Data.Caption = ""
   Else
      If COUNSELD = "0" Then
         Counseled_Data.Caption = "No"
      Else
         If COUNSELD = "1" Then
            Counseled_Data.Caption = "Yes"
         Else
            Counseled_Data.Caption = "ERROR"
         End If
      End If
   End If
   
'   If GAVETEST = "" Then
'      TestedForHIV_Data.Caption = ""
'   Else
'      If GAVETEST = "0" Then
'         TestedForHIV_Data.Caption = "No"
'      Else
'         If GAVETEST = "1" Then
'            TestedForHIV_Data.Caption = "Yes"
'         Else
'            TestedForHIV_Data.Caption = "ERROR"
'         End If
'      End If
'   End If
   
   If GAVERESU = "" Then
      GaveResults_Data.Caption = ""
   Else
      If GAVERESU = "0" Then
         GaveResults_Data.Caption = "No"
      Else
         If GAVERESU = "1" Then
            GaveResults_Data.Caption = "Yes"
         Else
            GaveResults_Data.Caption = "ERROR"
         End If
      End If
   End If

   If COUNCOND >= 0 Then
      CondomsGivenByCoun_Data.Caption = COUNCOND
   Else
      CondomsGivenByCoun_Data.Caption = ""
   End If
   
End Sub

Public Sub PrintClientInfo()
Const PlanTop = 2000

   'Printer.CurrentY = PlanTop
   Printer.CurrentX = 600
   Printer.Print "Couple Discordant:   " & CoupDiscordant_Data.Caption
   Printer.CurrentX = 600
   Printer.Print "Risk Reduction Plan:   " & RRPlan_Data.Caption
   Printer.CurrentX = 600
   Printer.Print "Client Referred To:   " & ReferredTo_Data.Caption
   Printer.CurrentX = 600
   Printer.Print "Counseled:   " & Counseled_Data.Caption
   Printer.CurrentX = 600
   Printer.Print "Gave Results:   " & GaveResults_Data.Caption
   Printer.CurrentX = 600
   Printer.Print "# Condoms Given by Counselor:   " & CondomsGivenByCoun_Data.Caption

End Sub

Public Sub SetShape(ByVal ShapePar As Integer)
   Shape2.Shape = ShapePar
End Sub
